home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Source / Property Editors / dsadd.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  1KB  |  60 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {       Dataset Designer Add Fields Dialog              }
  6. {                                                       }
  7. {       Copyright (c) 1997,99 Inprise Corporation       }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit DSAdd;
  12.  
  13. interface
  14.  
  15. uses SysUtils, Windows, Messages, Classes, Graphics, Controls,
  16.   Forms, StdCtrls, Buttons;
  17.  
  18. type
  19.   TAddFields = class(TForm)
  20.     OkBtn: TButton;
  21.     CancelBtn: TButton;
  22.     GroupBox1: TGroupBox;
  23.     FieldsList: TListBox;
  24.     HelpBtn: TButton;
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure HelpBtnClick(Sender: TObject);
  27.   public
  28.     procedure SelectAll;
  29.   end;
  30.  
  31. var
  32.   AddFields: TAddFields;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. uses LibHelp;
  39.  
  40. procedure TAddFields.SelectAll;
  41. var
  42.   I: Integer;
  43. begin
  44.   with FieldsList do
  45.     for I := 0 to Items.Count - 1 do
  46.       Selected[I] := True;
  47. end;
  48.  
  49. procedure TAddFields.FormCreate(Sender: TObject);
  50. begin
  51.   HelpContext := hcDDataSetAdd;
  52. end;
  53.  
  54. procedure TAddFields.HelpBtnClick(Sender: TObject);
  55. begin
  56.   Application.HelpContext(HelpContext);
  57. end;
  58.  
  59. end.
  60.